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This is the part of the Memory Refresh Task which 
is specific to Alto IIs with Extended memory. 


; Copyright Xerox Corporation 1979 

SEngNumber $30000; ALTO II WITH EXTENDED MEMORY 


This version assumes MRTACT is cleared by BLOCK, not MAR*- R37 
R37 [4-13] are the low bits of the TOD clock 
R37 [8-14] are the refresh address bits 

Each time MRT runs, four refresh addresses are generated, though 
R37 is incremented only once. Sprinkled throughout the execution 
of this code are the following operations having to do with refresh: 


MAR<- R37 
R37<- R37 +4 
MAR*- R37 XOR 2 
MAR*- R37 XOR 200 
MAR*- R37 XOR 202 


NOTE THAT R37 [14] DOES NOT CHANGE 
TOGGLES BIT 14 
TOGGLES BIT 8 
TOGGLES BITS 8 AND 14 


MRT: MAR*- R37; 

SINK*- MOUSE, BUS; 
MRTA: L<- T<- -2, :TX0; 

TX0: L<- R37 AND NOT T, 

T*- 3+T+l, SH=0 ; 

L*- REFIIMSK AND T 
NOTIMER: R37*- L; 
NOTIMERINT: T*- 2; 

MAR*- R37 XOR T,T<- 
L*- REFZERO AND T; 
SH=0, TASK; 

:NOCLK; 

NOCLK: T. *- 200; 


**FIRST REFRESH CYCLE** 

MOUSE DATA IS ANDED WITH 17B 
DISPATCH ON MOUSE CHANGE 
T*- R37; INCREMENT CLOCK 

IE. T*- T +4. IS INTV TIMER ON? 
:D0TIMER; [DOTIMER,NOTIMER] ZERO HIGH 4 BITS 
STORE UPDATED CLOCK 

NO STATE AT THIS POINT IN PUBLIC REGS 
R37; **SECOND REFRESH CYCLE** 

ONLY THE CLOKCK BITS, PLEASE 
TEST FOR CLOCK OVERFLOW 
[NOCLK,CLOCK] 


MAR*- R37 XOR T; 

L*- CURX, BLOCK; 

T*- 2 OR T, SH=0; 

MAR*- R37 XOR T, :DOCUR; 
NOCUR: CURDATA*- L, TASK; 
MRTLAST: CURDATA*- L, : MRT; 


**THIRD FEFRESH CYCLE** 
CLEARS WAKEUP REQUEST FF 
NEED TO CHECK CURSOR? 
**FOURTH REFRESH CYCLE** 

END OF MAIN LOOP 


DOTIMER:R37*- L; 

MAR*- EIALOC; 

L«- 2 AND T; 

SH = 0 , L*- T«- REFZERO.T; 
CURDATA*-L, :SPCHK; 


STORE UPDATED CLOCK 
INTERVAL TIMER/EIA INTERFACE 

*®*V3 CHANGE (USED TO BE BIAS) 

CURDATA*- CURRENT TIME WITHOUT CONTROL BITS 


SPCHK: SINK*- MD, BUS = 0, TASK; CHECK FOR EIA LINE SPACING 
SPIA: :NOTIMERINT , CLOCKTEMP*- L; 


NOSPCHK: L*-MD; 

MAR*-TRAPDISP-1; 
MTEMP«-L; 

L*- MD-T; 

SH=0, TASK, L*-MTEMP, 


CHECK FOR TIME = NOW 

CONTAINS TIME AT WHICH INTERRUPT SHOULD HAPPEN 
IF INTERRUPT IS CAUSED, 

LINE STATE WILL BE STORED 
: SPIA; 


TIMERINT:MAR<- ITQUAN; 

L<- CURDATA; 

R37<- L; 

T*-NWW; 

MD*-CLOCKTEMP; 

L*-MD OR T, TASK; 
NWW*-L, : NOTIMERINT; 


STORE THE THING IN CLOCKTEMP AT ITQUAN 


AND CAUSE AN INTERRUPT ON THE CHANNELS 
SPECIFIED BY ITQUAN+1 


;The rest of MRT, starting at the label CLOCK is unchanged 





